100 REM LOTTOSIMULATION
110 DIM ZAHL%(49)
120 FORA=1TO6:REM LOTTOZAHLEN ERMITTELN
130 ZUFALL=INT(RND(1)*49)+1:IFZAHL%(ZUFALL)=1THEN130
140 ZAHL%(ZUFALL)=1:NEXT
150 PRINT"[147]BITTE GEBEN SIE IHRE ZAHLEN EIN"
160 FORA=1TO6:REM TIPPVORSCHLAEGE EINGEBEN
170 INPUT"  ][157][157]";EIN(A):IFEIN(A)<1OREIN(A)>49THENPRINT"UNGUELTIG":GOTO170
180 NEXT
190 PRINT:PRINT"DIE AKTUELLEN LOTTOZAHLEN SIND"
200 FORA=1TO49:IFZAHL%(A)=1THENPRINTA;
210 NEXT
220 FORA=1TO6:IFZAHL%(EIN(A))=1THENZAELER=ZAELER+1
230 NEXT:PRINT:PRINT:PRINT"SIE HATTEN";ZAELER;"ZAHL(EN) RICHTIG"